home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
sm_archv.zip
/
ATEST3.ADA
< prev
next >
Wrap
Text File
|
1991-01-19
|
1KB
|
55 lines
-- This program can be used to demonstrate the scheduling techniques
-- since Task2 will have higher priority than Task1, so more
-- B's will be printed out than A's at a time if scheduled using
-- scheduling techniques 3 and 5
with SMALL_SP; use SMALL_SP;
procedure Atest3 is
task Task2 is
entry start;
end Task2;
task Task1 is
entry start;
end Task1;
task body Task2 is
k : INTEGER;
begin
accept start;
for k in 0..20 loop
PUT("B");
if (k mod 5 = 0) then
delay 0.55;
end if;
end loop;
end Task2;
task body Task1 is
k : INTEGER;
begin
accept start;
for k in 0..20 loop
PUT("A");
if (k mod 5 = 0) then
delay 0.55;
end if;
end loop;
end Task1;
begin
PUT("In this run Task2 has higher priority than Task1, so more B's");
NEW_LINE;
PUT("will be printed at one time than A's if scheduled with 3 or 5");
NEW_LINE;
NEW_LINE;
NEW_LINE;
Task1.start;
Task2.start;
end Atest3;